demand [if]
demand [else]
demand [then]
supplied-by
1 chars 1 = [if]
: char/ ; immediate
[else]
: char/ 1 chars / ;
[then]
